unit UUsuario;

interface
 Uses
    UGenerica;

 type
    Usuario = class(Generica)


   protected
    login     : string;
    senha     : string;
    lPais     : string[20];
    lCor      : string[20];
    lEstado   : string[20];
    lCidade   : string[20];
    lUsuario  : string[20];
    lMarca    : string[20];

   public
     constructor Create;
     destructor Destroy;

     procedure setlogin   (vlogin   : string);
     procedure setsenha   (vsenha   : string);
     procedure setpais    (vpais    : string);
     procedure setcor     (vcor     : string);
     procedure setEstado  (vEstado  : string);
     procedure setCidade  (vCidade  : string);
     procedure setUsuario (vUsuario : string);
     procedure setMarca   (vMarca   : string);

     function getlogin    : string;
     function getsenha    : string;
     function getpais     : string;
     function getcor      : string;
     function getEstado   : string;
     function getCidade   : string;
     function getUsuario  : String;
     function getMarca    : string;

 end;


implementation

{ usuario }

constructor usuario.Create;
begin
   inherited;
   login := '';
   senha := '';
   lpais := '';
   lcor := '';
   lmarca := '';
   lusuario :='';
end;

destructor usuario.Destroy;
begin

end;

function usuario.getlogin: string;
begin
   Result := login;
end;

function Usuario.getMarca: string;
begin
   Result := lMarca;
end;

function usuario.getCidade: string;
begin
   Result := lCidade;
end;

function usuario.getcor: string;
begin
  Result := lcor;
end;

function usuario.getEstado: string;
begin
    Result := lEstado
end;

function usuario.getpais: string;
begin
  Result:= lpais;
end;

function usuario.getsenha: string;
begin
  Result:= senha;
end;

function Usuario.getUsuario: String;
begin
   Result:= lUsuario;
end;

procedure usuario.setlogin(vlogin: string);
begin
    login := vlogin;
end;

procedure Usuario.setMarca(vMarca: string);
begin
     lMarca := vMarca;
end;

procedure usuario.setCidade(vCidade: string);
begin
   lCidade := vCidade;
end;

procedure usuario.setcor(vcor: string);
begin
  lcor:= vcor;
end;

procedure usuario.setEstado(vEstado: string);
begin
    lEstado := vEstado;
end;

procedure usuario.setpais(vpais: string);
begin
  lpais:= vpais;
end;

procedure usuario.setsenha(vsenha: string);
begin
  senha := vsenha;
end;

procedure Usuario.setUsuario(vUsuario: string);
begin
  lUsuario := vUsuario;
end;

end.
